www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminHTML\D_do_htm_article.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <!--#include file=../../inc/ND_class_function.asp--> <!--#include file=inc_lanmu_bla.asp--> <!--#include file=makehtm_inc/clsCachea.asp--> <% is_cmsa=1 if cstr(request("isqiye")&"")="1" then is_cmsa=0 end if Set myCache=new clsCache_b CacheTemp="nd_htm_" myCache.name=CacheTemp & "nd_cid_var_name" Call myCache.clean() myCache.add request("cnnn"),Dateadd("h",2999,now()) myCache.name=CacheTemp & "nd_pdid_var_name" Call myCache.clean() myCache.add request("cnnnn"),Dateadd("h",2999,now()) myCache.name=CacheTemp & "nd_arid_var_name" Call myCache.clean() myCache.add request("arnnn"),Dateadd("h",2999,now()) myCache.name=CacheTemp & "nd_zid_var_name" Call myCache.clean() myCache.add request("znnn"),Dateadd("h",2999,now()) set myCache=nothing dowhata=cstr(request("dowhat")) sys_content_type=trim(request("sys_content_type")) if dowhata="10" then response.redirect "D_goto_make_all_htm.asp?isqiye="&request("isqiye") response.end end if if dowhata="11" then response.redirect "D_goto_make_all_htm_by_conutiue.asp?isqiye="&request("isqiye") response.end end if if dowhata="7" then pageaa="$page$article_index_page$" pageaa=replace_webfiles_names(pageaa,is_cmsa) response.redirect "D_goto_make_danpage_htm.asp?cids="&sys_content_type&"&page="&pageaa&"&func=pindao_index"&"&isqiye="&request("isqiye") response.end end if if dowhata="9" then pageaa="$page$main_index_page$" pageaa=replace_webfiles_names(pageaa,is_cmsa) response.redirect "D_goto_make_danpage_htm.asp?cids="&sys_content_type&"&page="&pageaa&"&func=indexpage"&"&isqiye="&request("isqiye") response.end end if if dowhata="8" then pageaa1="$page$new_art_page$" pageaa1=replace_webfiles_names(pageaa1,is_cmsa) pageaa2="$page$tj_art_page$" pageaa2=replace_webfiles_names(pageaa2,is_cmsa) pageaa3="$page$hot_art_page$" pageaa3=replace_webfiles_names(pageaa3,is_cmsa) response.redirect "D_goto_make_zhuanti_htm.asp?cids="&sys_content_type&"&page="&pageaa1&"|"&pageaa2&"|"&pageaa3&"&isqiye="&request("isqiye") response.end end if if dowhata="12" then response.redirect "D_htm_x_zhuanti.asp?sys_content_type="&sys_content_type&"&isqiye="&request("isqiye") response.end end if if dowhata="1" or dowhata="5" then pageaa="$page$article_class_page$" end if if dowhata="2" or dowhata="3" or dowhata="4" then pageaa="$page$article_view_page$" end if pageaa=replace_webfiles_names(pageaa,is_cmsa) cids="" for i=1 to clng(request("len1")) aa1=cstr(request("htmcl_"&cstr(i))&"") if aa1<>"" then cids=cids&aa1&"," end if next if cids<>"" then cids=left(cids,len(cids)-1) if dowhata="2" then response.redirect "D_goto_make_art_view_htm_by_cids.asp?cids="&cids&"&page="&pageaa&"&isqiye="&request("isqiye") end if if dowhata="1" then response.redirect "D_goto_make_htm_by_cids.asp?cids="&cids&"&page="&pageaa&"&isqiye="&request("isqiye") end if if dowhata="3" then response.redirect "D_goto_make_new_art_view_htm_by_cids.asp?cids="&cids&"&page="&pageaa&"&isqiye="&request("isqiye") end if if dowhata="5" then response.redirect "D_goto_make_new_htm_by_cids.asp?cids="&cids&"&page="&pageaa&"&isqiye="&request("isqiye") end if else %> <script language="javascript"> alert("请至少选中一个分类"); history.go(-1); </script> <% end if %>